QuickTime VR Showcase/QuickTime VR Showcase.iso/3rd Parties/Software/Apple/AMT 2.1 New Features Demo/SOURCES/oAudio_2_9.k

Text File | 1996-12-21 | 18.4 KB | 912 lines | [TEXT/MPS ]

object oAudio_2_9 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oKeyboard_Volume__9_51,
        oClick_Sound__Up__9_2,
        oClick_Sound__down__9_3,
        oAU_BCK2_PIC_9_15,
        oArrow_Right_Yellow_Highligh_9_4,
        oArrow_Left_Yellow_Highlight_9_5,
        oExit_Yellow_Highlight_9_6,
        oExplain_Yellow_Highlight_9_30,
        oMenu_Yellow_Highlight_9_8,
        oArrow_Left_Inverse_9_9,
        oArrow_Right_Inverse_9_10,
        oExit_Inverse_9_11,
        oExplain_Inverse_9_12,
        oMenu_Inverse_9_13,
        oAudio_CD_9_16,
        oAU_MINUS_PIC_9_31,
        oAU_PLUS_PIC_9_32,
        oAU_STOP_PIC_9_33,
        oAU_PLAY_PIC_9_34,
        oAU_2NIN_PIC_9_38,
        oAU_2EIG_PIC_9_35,
        oAU_2SEV_PIC_9_40,
        oAU_2SIX_PIC_9_45,
        oAU_2FIV_PIC_9_36,
        oAU_2FOU_PIC_9_37,
        oAU_2THR_PIC_9_43,
        oAU_2TWO_PIC_9_44,
        oAU_2ONE_PIC_9_39,
        oAU_HLP2_PIC_9_46
    ];
end;


object oKeyboard_Volume__9_51 is cKeyboardHandler
with
    Behavior is cDefaultBehavior
    has
        KeyDown(theTarget, theKey)
        use
            KeyMatch;

            do
                KeyMatch := theKey = '-';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(-1);
                end;
                KeyMatch := theKey = '=';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
                KeyMatch := theKey = '+';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
            end;

    with
        Enabled is true; Shown is false;
        X is 30; Y is 24; Width is 0; Height is 0;
    end;
end;


object oClick_Sound__Up__9_2 is cSoundHandler
with
    Supplier is oS3_2clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 247; Y is 128; Width is 32; Height is 24;
    end;
end;


object oClick_Sound__down__9_3 is cSoundHandler
with
    Supplier is oS3_clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 304; Y is 228; Width is 32; Height is 24;
    end;
end;


object oAU_BCK2_PIC_9_15 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_BCK2_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oArrow_Right_Yellow_Highligh_9_4 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Right_Inverse_9_10.Show(true);
                oBinder.Refresh();
                oClick_Sound__down__9_3.Run(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Right_Inverse_9_10.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__9_2.Run(true);
                oBinder.Goto(oMain_Menu_1);
                oBinder.SetTransition(oIrisOpen, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 473; Y is 426; Width is 55; Height is 54;
    end;
end;


object oArrow_Left_Yellow_Highlight_9_5 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Left_Inverse_9_9.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__9_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Left_Inverse_9_9.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__9_2.Run(true);
                oBinder.Goto(oAudio_1_8);
                oBinder.SetTransition(oIrisOpen, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 377; Y is 426; Width is 60; Height is 54;
    end;
end;


object oExit_Yellow_Highlight_9_6 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExit_Inverse_9_11.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__9_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExit_Inverse_9_11.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__9_2.Run(true);
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 426; Width is 111; Height is 54;
    end;
end;


object oExplain_Yellow_Highlight_9_30 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                if oQueryCursor=void then
                    oQueryCursor.Load();
                end;
                oQueryCursor.Set();
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExplain_Inverse_9_12.Show(true);
                oBinder.Refresh();
                oClick_Sound__down__9_3.Run(true);
                oAU_HLP2_PIC_9_46.Show(not oAU_HLP2_PIC_9_46.IsShown());
                oAU_MINUS_PIC_9_31.Enable(not oAU_MINUS_PIC_9_31.IsEnabled());
                oAU_PLUS_PIC_9_32.Enable(not oAU_PLUS_PIC_9_32.IsEnabled());
                oAU_STOP_PIC_9_33.Enable(not oAU_STOP_PIC_9_33.IsEnabled());
                oAU_PLAY_PIC_9_34.Enable(not oAU_PLAY_PIC_9_34.IsEnabled());
                oAU_2NIN_PIC_9_38.Enable(not oAU_2NIN_PIC_9_38.IsEnabled());
                oAU_2EIG_PIC_9_35.Enable(not oAU_2EIG_PIC_9_35.IsEnabled());
                oAU_2SEV_PIC_9_40.Enable(not oAU_2SEV_PIC_9_40.IsEnabled());
                oAU_2SIX_PIC_9_45.Enable(not oAU_2SIX_PIC_9_45.IsEnabled());
                oAU_2FIV_PIC_9_36.Enable(not oAU_2FIV_PIC_9_36.IsEnabled());
                oAU_2FOU_PIC_9_37.Enable(not oAU_2FOU_PIC_9_37.IsEnabled());
                oAU_2THR_PIC_9_43.Enable(not oAU_2THR_PIC_9_43.IsEnabled());
                oAU_2TWO_PIC_9_44.Enable(not oAU_2TWO_PIC_9_44.IsEnabled());
                oAU_2ONE_PIC_9_39.Enable(not oAU_2ONE_PIC_9_39.IsEnabled());
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExplain_Inverse_9_12.Show(false);
                oBinder.Refresh();
                oClick_Sound__Up__9_2.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 289; Y is 427; Width is 87; Height is 53;
    end;
end;


object oMenu_Yellow_Highlight_9_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oMenu_Inverse_9_13.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__9_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oMenu_Inverse_9_13.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__9_2.Run(true);
                oBinder.Goto(oMain_Menu_1);
            end;

    with
        Enabled is true; Shown is true;
        X is 163; Y is 427; Width is 126; Height is 53;
    end;
end;


object oArrow_Left_Inverse_9_9 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 381; Y is 441; Width is 51; Height is 40;
    end;
end;


object oArrow_Right_Inverse_9_10 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 477; Y is 438; Width is 50; Height is 42;
    end;
end;


object oExit_Inverse_9_11 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 439; Width is 112; Height is 42;
    end;
end;


object oExplain_Inverse_9_12 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 291; Y is 438; Width is 87; Height is 43;
    end;
end;


object oMenu_Inverse_9_13 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 167; Y is 438; Width is 123; Height is 43;
    end;
end;


object oAudio_CD_9_16 is cAudioCDHandler
with
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                oAudio_CD_9_16.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 0; Y is 0; Width is 27; Height is 22;
    end;
end;


object oAU_MINUS_PIC_9_31 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_MINUS_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                oSoundVolume.StepIndexBy(-1);
                theTarget.Show(false);
                oBinder.Refresh();
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 265; Y is 301; Width is 31; Height is 38;
    end;
end;


object oAU_PLUS_PIC_9_32 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_PLUS_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                oSoundVolume.StepIndexBy(1);
                theTarget.Show(false);
                oBinder.Refresh();
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 507; Y is 301; Width is 30; Height is 38;
    end;
end;


object oAU_STOP_PIC_9_33 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_STOP_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Run(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 400; Y is 301; Width is 106; Height is 38;
    end;
end;


object oAU_PLAY_PIC_9_34 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_PLAY_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Run(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 295; Y is 301; Width is 105; Height is 38;
    end;
end;


object oAU_2NIN_PIC_9_38 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2NIN_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(9);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 502; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2EIG_PIC_9_35 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2EIG_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(8);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 481; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2SEV_PIC_9_40 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2SEV_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(7);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 460; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2SIX_PIC_9_45 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2SIX_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(6);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 438; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2FIV_PIC_9_36 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2FIV_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(5);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 418; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2FOU_PIC_9_37 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2FOU_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(4);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 397; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2THR_PIC_9_43 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2THR_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(3);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 376; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2TWO_PIC_9_44 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2TWO_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(2);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 357; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_2ONE_PIC_9_39 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_2ONE_PIC;
    Behavior is cDefaultBehavior
    has
        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oAudio_CD_9_16.Goto(1);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 336; Y is 248; Width is 20; Height is 31;
    end;
end;


object oAU_HLP2_PIC_9_46 is cPictureHandler
with
    Duration is -1;
    Supplier is oAU_HLP2_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 168; Y is 0; Width is 472; Height is 425;
    end;
end;